home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
MF-Pascal_0.2
/
test.p
< prev
next >
Wrap
Text File
|
1990-02-23
|
274b
|
17 lines
program main(input,output);
const
txt= "- i :";
var
i,j: integer;
function fak(i: integer): integer;
Begin {fak}
case i of
0,1: fak := 1;
else fak := i*fak(i-1);
end;
end; {fak}
Begin
for i := 0 to 10+1
do writeln(txt,i," i - fakultät :", fak(i));
end.